(profile-million): Variable moved.

diff --git a/lisp/emacs-lisp/profile.el b/lisp/emacs-lisp/profile.el
index a7e137332e75cc6a75889932084bdc5ca77b09b9..1f17a66310c53d35417de85ce7dc4091d7c96ed8 100644 (file)
--- a/lisp/emacs-lisp/profile.el
+++ b/lisp/emacs-lisp/profile.el
@@ -92,6 +92,8 @@ Both how many times invoked and real time of start.")
 (defvar profile-time (cons 0 0) "Used to return result from a filter.")
 (defvar profile-buffer "*profile*" "Name of profile buffer.")
 
+(defconst profile-million 1000000)
+
 ;;;
 ;;; F U N C T I O N S
 ;;;
@@ -188,8 +190,6 @@ With argument FLIST, use the list FLIST instead."
       (setcar init-time (car profile-time))
       (setcdr init-time (cdr profile-time)))
     ))
-       
-(defconst profile-million 1000000)
 
 (defun profile-update-function (fun)
   "When the call to the function FUN is finished, add its run time."